1 A=A+1:POKE53280,.:POKE53281,.:PRINT"[147][208]LEASE [215]AIT"
3 IFA=1 THEN LOAD"ALF.IRQ.FLSH.O",8,1
4 POKE2,25:SYS50000:SYS828,49152,"MEMOVER1.0+.O"
5 SYS828,57344,"ALF.DD.CHAR"
6 SYS828,59392,"ALF.DD.SPRI23"
7 HI=INT(16383/256):LO=16383-HI*256
8 POKE55,LO:POKE56,HI:CLR
9 POKE53280,.:POKE53281,.:POKE648,204:PRINT"[147]"
13 PRINT"[147]"CHR$(142)
29 PRINT"[147]REBOOT LOADSTAR!!!"
30 SYS828,26959,"ALF.DD.SCRNS3"
35 SYS50000
37 :
40 PRINT"[147]":SC=0:DIM SX(20),SY(20),S,X,Y,R,A,D:POKE53265,PEEK(53265)AND223
41 PRINT"[147]":SC=0:FORX=0TO16STEP2
42 SX(C)=53246+X:POKESX(C),.
43 SY(C)=53247+X:POKESY(C),.
44 C=C+1:NEXT
45 POKE53271,.:POKE53277,.:POKE53248+16,.
47 POKE56576,(PEEK(56576)AND252)OR0
48 POKE53272,(PEEK(53272)AND 15)OR48
49 POKE53272,(PEEK(53272)AND240)OR8
50 GOTO 500
60 :
75 :
76 SYS49152,26959+SC*1000,52224,1000
78 SC=SC+1:RETURN
79 :
80 :
81 IFSX(1)=0 THEN END
86 FORX=STOE STEP16:A=0
88 FORC=244 TO 247 STEP 1:POKE53240,C:FORK=1TO4:A=A+1
90 FORD=1TO10:NEXT:IFX+A=E THEN RETURN
91 POKESX(1),X+A
92 NEXTK:NEXTC:NEXTX
95 RETURN
96 :
100 REM "       [200]I [212]HERE!          "
105 POKESY(1),PEEK(SY(1))+1:FORX=STOESTEP16:A=0
107 FORC=240TO243:POKE53240,C:FORR=1TO4
110 A=A+1
115 POKESX(1),X+A:UP=UP+.5
116 IF X+A=E THEN RETURN
117 IFUP=INT(UP)THEN POKESY(1),PEEK(SY(1))-1
120 NEXTR:NEXTC:NEXTX:RETURN
125 :
126 DD=150:PP=53240
127 POKEPP,176:FORD=1TODD+30:NEXT
128 POKEPP,175:FORD=1TODD:NEXT
129 POKEPP,174:FORD=1TODD:NEXT
130 POKEPP,175:FORD=1TODD:NEXT
131 POKEPP,176:FORD=1TODD+50:NEXT
132 RETURN
150 NEXT
200 :
201 IFSX(1)=0THEN END
206 FORX=STOESTEP-16:A=0
208 FORC=219TO222STEP1:POKE53240,C:FORK=1TO4:A=A-1
210 FORD=1TO10:NEXT:IFX+A=ETHENRETURN
211 POKESX(1),X+A
212 NEXTK:NEXTC:NEXTX
215 RETURN
300 :
305 POKESY(1),PEEK(SY(1))+1:FORX=STOESTEP-16:A=0
307 FORC=180TO177STEP-1:POKE53240,C:FORR=1TO4
310 A=A-1
315 POKESX(1),X+A:UP=UP-.5
316 IFX+A=ETHENRETURN
317 IFUP=INT(UP)THENPOKESY(1),PEEK(SY(1))-1
320 NEXTR:NEXTC:NEXTX
330 RETURN
500 :
510 POKE53269,255 : REM SPRITES ON
511 FORX=0TO7:POKE53287+X,1:NEXT
520 :
550 :
551 :
555 REM "[201]T SEEMS THAT WE LIKE COLONS."
557 :
558 :
559 REM "YEP ... WE DO.  :::::::::::::"
560 POKESY(1),172
562 GOSUB75
565 S=10:E=133:GOSUB 80
568 :
570 S=E:E=206:GOSUB100
571 :
572 GOSUB125
575 P$=""
576 PRINTP$"[157][157] ":FORD=1TO90:NEXT:PRINTP$"[157][157] ":FORD=1TO90:NEXT:PRINTP$"[157][157][145]>"
578 C$="[176][157][173][192][145][157][192][192][157][192][192][145][157][192][192][157][192][192][145][157][192]"
580 PRINTP$"[157][179][157][179]"
581 PRINTP$"[157][157]"LEFT$(C$,4)
582 PRINTP$"[157][157][157]"LEFT$(C$,8)
583 :
584 :
585 POKE53241,239
586 POKESY(2),135
588 FORX=220 TO 212STEP-1
590 POKESX(2),X
591 NEXT
595 POKESY(2),.:POKESX(2),.
596 POKE53240,238
597 FORX=PEEK(SX(1))TO1STEP-2
599 POKESX(1),X:NEXT
600 :
610 :
611 :
615 GOSUB75
620 POKE53264,1
621 FORX=100TO0STEP-2
623 POKESX(1),X:NEXT
630 POKE53264,0
632 FORX=255TO45STEP-2
635 POKESX(1),X:NEXT
640 FORY=PEEK(SY(1))TO147
645 POKESY(1),Y
647 NEXT
650 POKE53241,239:POKESX(2),53:POKESY(2),148:POKESX(1),50
651 POKE53240,175
652 FORY=147TO255STEP3:POKESY(1),Y:NEXT
653 POKESY(2),.:POKESX(2),.
670 :
671 :
675 :
680 FORR=1TO3:PRINT"[147]":GOSUB75
685 POKESX(1),170:POKE53240,237
690 FORY=0 TO 255STEPR*2:POKESY(1),Y:NEXT
691 SC=SC-1:NEXT
700 :
701 :
702 SC=SC+1
705 GOSUB75:POKESX(1),160
706 FORY=0TO199STEP6:POKESY(1),Y:NEXT
724 POKESY(1),199
725 FORX=237TO231STEP-1
730 FORD=1TO10:NEXT
740 POKE53240,X:NEXT:FORD=1TO450:NEXT
741 :
742 POKESX(2),163:POKESY(2),200
745 FORX=173 TO 167 STEP-1
746 FORD=1TO25:NEXT
747 POKE53241,X
748 NEXT
749 FORD=1TO340:NEXT
753 POKE53240,176:POKESY(1),193
755 :
760 S=160:E=216:GOSUB80:GOSUB125
765 :
766 :
767 :
770 POKE53242,239:POKE53269,251
771 POKESY(3),149:POKE53264,4:POKE53269,255
775 FORX=90 TO 0 STEP-1
780 POKESX(3),X:FORD=1TO7:NEXT:NEXT:POKE53264,0
781 FORX=255 TO 219 STEP-1
782 POKESX(3),X:FORD=1TO7:NEXT:NEXT:POKE53243,230
785 POKESX(4),220:POKESY(4),160
786 FORX=229 TO 227 STEP-1
787 POKE53243,X:NEXT
788 POKE53271,8::POKE53242,248:POKESY(4),166
790 POKESY(3),149
795 POKE53240,225:POKESY(1),PEEK(SY(1))-1
800 FORX=1TO125
802 RT=53264
805 S=1:GOSUB850:S=3:GOSUB850:S=4:GOSUB850
806 NEXTX
810 GOTO 900
850 POKESX(S),PEEK(SX(S))+1:IFS(S)=0 THEN GOSUB 875
855 RETURN
875 IFPEEK(SX(S))=255 THEN POKESX(S),0:POKERT,PEEK(RT)+2^(S-1):S(S)=1
880 RETURN
900 FORX=1TO4:POKESX(X),0:NEXT:POKESX(4),6:POKESX(3),5
910 POKE53264,.:DC=72:FORR=1TO4:POKESY(R),PEEK(SY(R))-DC:NEXT
920 GOSUB 75
930 FORX=1TO132
935 S=1:GOSUB850:S=3:GOSUB850:S=4:GOSUB850
936 NEXTX
940 POKE53241,250
950 FORX=1TO29
951 FORS=1TO4
955 POKESX(S),PEEK(SX(S))+2
956 POKESY(S),PEEK(SY(S))+1
960 NEXT
961 NEXT
966 POKE53243,250
968 POKE53242,239
969 POKE53240,237
970 FORX=PEEK(SY(1))TO255:POKESY(1),X:NEXT
980 FORD=1TO500:NEXT
990 FORD=1TO4:POKESX(D),.:POKESY(D),.:NEXT
1000 C$(1)="UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU"
1001 C$(2)="TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT"
1003 C$(3)="SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS"
1004 C$(4)="RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR"
1005 C$(5)="QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ"
1006 C$(6)="PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP"
1007 C$(7)="OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO"
1008 C$(8)="NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN"
1010 P$="":GOSUB75
1012 PRINTP$;C$(1)
1020 POKESX(1),175
1025 FORX=0 TO 150:POKESY(1),X:NEXT
1030 POKESY(1),143:GOSUB125
1035 POKE53241,224:POKESX(2),235:POKESY(2),130
1040 FORX=1TO3:POKE53241,224:FORD=1TO160:NEXT
1045 POKE53241,250
1046 FORD=1TO160:NEXT
1049 NEXT:
1050 POKE53242,223:POKE53277,4
1051 POKESX(3),175:POKESY(3),120
1055 FORD=1TO1300:NEXT
1060 POKE53242,250
1068 REM OKEY, DOKEY, POKIE.?..POKEY?
1075 REM -- WHAT IS A POKEY?
1076 REM - IS IT A RARE OOFOO BIRD?
1077 REM ....THE STORY CONTINUES...
1078 POKESY(1),PEEK(SY(1))+1
1079 REM - IT IS A  OODOO- AKA JIM ROW
1080 S=175:E=160:GOSUB200
1085 FORX=1TO51
1090 FORR=2TO8STEP2:PRINTP$C$(R);
1095 POKE53240,R/2+218
1096 FORD=1TO10:NEXT
1100 NEXTR
1105 IFPEEK(SX(1))+4>255THENPOKE53264,1:POKESX(1),.
1110 POKESX(1),PEEK(SX(1))+2
1111 NEXT
1114 POKE53240,216
1115 FORX=1TO5:POKESX(1),PEEK(SX(1))+1:POKESY(1),PEEK(SY((1)))+1:NEXT
1116 FORX=1TO4:POKESX(1),PEEK(SX(1))+1
1117 POKESY(1),PEEK(SY(1))+2:NEXT
1120 FORY=PEEK(SY(1))TO200STEP4
1130 FORA=215 TO 218
1135 POKE53240,A:FORD=1TO10:NEXT
1136 POKESY(1),PEEK(SY(1))+2
1140 NEXT:POKESX(1),PEEK(SX(1))+2:POKESX(1),PEEK(SX(1))-2
1145 NEXT
1150 REM "-----  [200]I [212]HERE!  ----"
1200 POKE53264,.:POKESY(1),.:POKESX(1),175
1205 GOSUB75
1220 FORY=PEEK(SY(1))TO158STEP8
1230 FORA=215 TO 218
1235 POKE53240,A:FORD=1TO10:NEXTD
1236 POKESY(1),PEEK(SY(1))+2:IFPEEK(SY(1))=>158 THEN 1246
1240 NEXTA:POKESX(1),PEEK(SX(1))+2:POKESX(1),PEEK(SX(1))-2
1245 NEXTY
1246 POKE38,104:POKE39,104:POKE40,76:POKE41,126:POKE42,166:SYS38
1247 REM --- OOGIE POOGIE ? ---
1248 REM -- ASK THE DOCTOR ---
1249 REM - IT BE A BIRD. - CHILL OUT! -
1250 FORR=1TO3
1251 FORY=1TO5
1255 FORA=215 TO 218
1260 POKE53240,A
1261 FORD=1TO5:NEXTD
1265 NEXTA
1266 NEXTY:FORD=1TO120:NEXT
1267 NEXTR
1270 POKESY(1),PEEK(SY(1))-5:GOSUB125
1300 :
1302 :
1305 A$="GHGHGHGHGHGHGH[146][163]"
1306 B$="GHGHGH[146]         [157][157][157][157][157][157][157][157][157]GHGHGHGHGHGHGH"
1307 FORX=1TOLEN(B$)
1310 PRINTLEFT$(A$,X)
1320 PRINTLEFT$(B$,X)
1321 FORD=1TO30:NEXT
1325 NEXT
1355 GOSUB125: REMLOOK AROUND AGAIN
1360 S=PEEK(SX(1)):E=S+40:GOSUB80
1370 POKESY(1),PEEK(SY(1))+1:S=E:E=S-40:GOSUB200
1375 S=E:E=1:GOSUB300
1400 :
1402 GOSUB75
1405 A$="":A1$="GHGHGHGHG"
1406 B$="":B1$="GHGHGHGHGH"
1410 FORX=44TOLEN(B$+B1$)
1411 PRINTLEFT$(A$+A1$,X)
1412 PRINTLEFT$(B$+B1$,X)
1430 NEXT
1450 POKESX(1),80
1451 POKESY(1),187:POKE53264,1
1460 S=80:E=0:GOSUB300:POKE53264,0
1465 S=255:E=246:GOSUB300
1475 PRINT"[165][157][157][164][165]"
1477 POKESY(1),PEEK(SY(1))+1
1480 FORD=1TO100:NEXT
1485 A1$="[146]        "
1486 B1$="[146]          "
1490 FORX=44TOLEN(B$+B1$)
1491 PRINTLEFT$(A$+A1$,X)
1492 PRINTLEFT$(B$+B1$,X)
1495 NEXT
1500 S=PEEK(SX(1)):E=S-10:GOSUB200
1505 POKESY(1),PEEK(SY(1))-2:GOSUB125
1506 POKESY(1),PEEK(SY(1))+1
1510 S=E:E=175 :GOSUB200
1511 FORD=1TO400:NEXT
1515 POKESY(1),PEEK(SY(1))-1:GOSUB125
1517 REM --- FALL INTO TRANSPORTER
1518 FORX=2TO8:POKESX(X),.:POKESY(X),.:NEXT
1520 FORX=1TO200:NEXT:GOSUB75:
1530 POKE53240,237
1535 FORY=PEEK(SY(1))TO169
1536 POKESY(1),Y:NEXT
1540 POKE53240,175
1545 FORD=1TO200:NEXT
1550 GOSUB125
1560 POKE53240,250:POKESY(1),166:C=1
1562 FORR=1TO 50
1565 FORX=198 TO 200:POKE53240,X
1566 C=C+1:POKE53287,C:IFC=10 THEN C=2
1567 NEXTX:NEXTR
1569 PRINT"[157] [165]  [157][157][157][165]  [157][157][157][165]  [157][157][157][157] "
1570 POKE53277,2:POKE53240,250
1571 PRINT"";:
1572 FORX=1TO6:PRINT"[192][157][192][145][157][157]";:FORD=1TO40:NEXT:NEXT
1578 POKE53241,194:POKE53287,14
1579 POKESX(2),127:POKESY(2),169:POKESX(1),115:POKESY(1),165:POKE53240,214
1580 FOR R=1TO 25
1581 FORX=193 TO 197:POKE53241,X:
1582 C=C+1:POKE53288,C:IFC=10THEN C=0
1583 REM --- HACKER - GET OUT AND DIE!
1585 FORD=1TO30-R*2:NEXT:NEXT X
1586 IFR>10 THEN POKE53287,R
1587 NEXT:POKE53241,250
1588 FORR=1TO30
1589 FORX=209 TO 214:POKE53240,X
1590 C=C+1:POKE53287,C:IFC=10 THEN C=0
1591 FORD=1TO30-R*2:NEXT:NEXT X
1593 NEXT
1601 PRINT"";:
1602 FORX=1TO6:PRINT" [157] [145]";
1603 D=208:GOSUB1620
1608 NEXTX
1610 D=208:GOTO 1650
1620 D=D+1:POKE53240,D:IFD=214 THEN D=208
1622 C=C+1:POKE53287,C:IFC=10THENC=0
1623 RETURN
1650 FORY=PEEK(SY(1))TO226STEP3
1651 POKESY(1),Y:GOSUB1620:NEXT
1670 FORX=PEEK(SX(1))TO255STEP3
1671 POKESX(1),X:GOSUB1620:NEXT
1675 POKE 53264,1
1680 FORX=0TO90STEP3
1681 POKESX(1),X:GOSUB1620:NEXT
1685 PRINT"[147]"
1686 POKE53240,250:POKESX(1),0:POKESY(1),200
1687 POKE53264,.
1690 FORX=0 TO 175STEP3
1691 POKESX(1),X:GOSUB1620:NEXT
1700 FORY=PEEK(SY(1)) TO 100 STEP-3
1705 POKESY(1),Y:GOSUB1620:NEXT
1710 FORX=PEEK(SX(1)) TO 255 STEP3
1711 POKESX(1),X:GOSUB1620:NEXT
1720 POKE53264,1:
1725 FORX=0 TO 90STEP3
1730 POKESX(1),X:GOSUB1620:NEXT
1740 PRINT"[147]"
1750 POKE53240,250
1752 POKE53264,.
1755 POKESX(1),.
1760 FORX=. TO 100STEP3
1761 POKESX(1),X:GOSUB1620:NEXT
1765 FORY=PEEK(SY(1))TO0 STEP-3
1768 POKESY(1),Y:GOSUB1620:NEXT
1800 GOSUB 75
1805 PRINT"[154][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
1810 POKESY(1),255:POKESX(1),PEEK(SX(1))-24
1815 FORY=255 TO 181STEP-3
1820 POKESY(1),Y:GOSUB1620:NEXT:POKESY(1),PEEK(SY(1))-1
1830 PRINT"";
1835 FORX=1TO6
1840 PRINT"[192][157][192][145][157][157]";
1850 FORE=1TO2:GOSUB1620:NEXT
1860 NEXT
1865 FOR R=1TO30
1870 FORS=209 TO 214
1875 POKE53240,S
1880 C=C+1:POKE53287,C:IFC=10THENC=0
1885 FORD=1TO20-R*2:NEXT:NEXT
1890 IFR=20THENPOKESY(2),185:POKESX(2),88
1892 IFR>20 THEN POKE53288,C
1895 NEXT:POKE53240,214:POKE53287,14
1896 FORR=1TO30
1900 FORS=193 TO 197
1905 POKE53241,S
1907 C=C+1:POKE53288,C:IFC=10THENC=0
1911 NEXT:NEXT:POKE53241,250
1913 FORD=1TO150:NEXT
1915 POKE53240,214:FORX=PEEK(SY(1))TO252:POKESY(1),PEEK(SY(1))+1:NEXT
1916 FORD=1TO100:NEXT
1930 PRINT"";
1935 FORX=1TO6:PRINT" [157] [145]";
1940 FORD=1TO20:NEXT:NEXT
1945 POKE53240,198:POKESX(1),137:POKESY(1),181
1950 FORR=1TO40
1955 FORS=198TO200
1960 C=C+1:POKE53287,C:IFC=10THENC=0
1962 FORD=1TO20-R*2:NEXTD
1971 POKE53240,S
1975 NEXTS:NEXTR:POKE53240,250
1980 POKE53287,1:POKESY(1),185
1985 POKE53240,175
1990 GOSUB 125
1995 FORX=1 TO 15 :REM GO FER THAT SWIM
1997 POKE53240,175
2005 FORD=1TO30:NEXT
2010 POKE53240,249
2011 POKESY(1),PEEK(SY(1))-2
2015 FORD=1TO5:NEXT
2020 NEXT
2025 REM -- SWIM RIGHT NOW!
2030 POKE53241,231:POKE53288,1
2035 POKESX(2),216:POKESY(2),159
2037 FORX=PEEK(SX(1))TOPEEK(SX(2))+2  STEP18
2040 FORS=203 TO 208
2045 POKE53240,S
2050 FORD=1TO30 :NEXT
2052 POKESX(1),PEEK(SX(1))+3
2053 NEXT S
2055 NEXT X
2056 FORY=1TO4:POKESY(2),PEEK(SY(2))-1:FORD=1TO30:NEXT:NEXT
2060 FORX=PEEK(SY(1))TO122 STEP-2
2061 POKESY(1),PEEK(SY(1))-2
2062 POKESY(2),PEEK(SY(2))-2
2063 NEXT:POKESY(2),PEEK(SY(2))-1
2070 POKESY(1),PEEK(SY(1))-8:GOSUB125
2080 S=PEEK(SX(1)):E=255:GOSUB80
2085 POKE53264,1:S=0:E=90:GOSUB80
2100 PRINT"[147]":GOSUB75:POKESY(2),.:POKESX(2),.:POKESY(1),156
2101 POKE53277,0:POKE53264,.:POKE53271,0
2102 POKE53241,226:POKE53242,201
2103 POKESX(2),152:POKESX(3),151
2104 POKESY(2),130:POKESY(3),144
2105 POKE53240,250:POKESX(1),0
2110 S=0:E=152:GOSUB80
2115 GOSUB125
2120 POKE53243,226:
2125 POKESX(4),152:POKESY(4),130:POKESY(1),162:POKE53240,237
2130 FORX=1TO10
2135 POKESY(3),PEEK(SY(3))+1
2137 POKESY(4),PEEK(SY(4))+1
2138 NEXT
2140 FORX=1TO5
2141 POKESY(3),PEEK(SY(3))-1
2142 POKESY(4),PEEK(SY(4))-1
2143 POKESY(1),PEEK(SY(1))-1
2145 NEXT
2150 FORR=1TO32
2155 FORY=1TO4
2156 POKESX(Y),PEEK(SX(Y))+1
2158 NEXT:NEXT
2159 PRINT"[221][157]";:C=2
2160 FORX=1TO98
2165 POKESY(1),PEEK(SY(1))+1
2167 POKESY(3),PEEK(SY(3))+1
2170 POKESY(4),PEEK(SY(4))+1
2175 C=C+1:IFC=8 THEN PRINT"[221][157]";:C=0:
2180 NEXT
2200 FORX=1TO8:POKESY(X),.:NEXT
2210 GOSUB75:POKESY(1),55:POKESY(2),00:POKESY(3),47:POKESY(4),36
2220 PRINT"[221][157]";:C=2
2230 FORX=1TO85
2231 POKESY(1),PEEK(SY(1))+1
2232 POKESY(3),PEEK(SY(3))+1
2235 POKESY(4),PEEK(SY(4))+1
2238 C=C+1:IFC=8 THEN PRINT"[221][157]";:C=0:
2240 NEXT
2250 PRINT"";
2255 FORX=1TO7
2265 PRINT"[163]";:NEXT
2270 POKE53240,249
2271 FORY=  PEEK(SY(1)) TO 255STEP3
2272 POKESY(1),Y
2275 NEXTY
2300 FORY=1TO4:POKESY(Y),.:NEXT
2302 POKESX(1),98:POKESY(1),40
2304 PRINT"[147]":GOSUB75
2305 P$="":PRINTP$;
2307 GOSUB 2310:GOTO2320
2310 PRINT"[163][163][163][163][163][165] [167][163][163][163][163][163][163][163][163][163][157][157][157][157][157][157][157][157][157]";
2311 FORX=1TO6
2315 PRINT"[157][157][157][165] [167] [157]";
2317 NEXT:PRINT"":RETURN
2318 POKE53240,249
2320 FORY=PEEK(SY(1)) TO 178 STEP2
2325 POKE SY(1),Y:NEXT:POKESY(1),PEEK(SY(1))-1
2330 FORD=1TO100:NEXT:GOSUB125:S=PEEK(SX(1)):E=S+5:GOSUB80:GOSUB125
2335 FORD=1TO300:NEXT
2340 FORR=1TO2:PRINTP$;:FORY=1TOR:PRINT"[157]";:NEXT:FORD=1TO20:NEXT
2345 GOSUB 2310
2348 NEXT
2349 POKE53240,249
2350 FORY=PEEK(SY(1)) TO 253 STEP2
2355 POKE SY(1),Y:NEXT
2400 POKESX(1),150:POKESY(1),30
2405 GOSUB75:POKE53271,30
2406 POKE53241,192:POKE53242,181:POKE53243,191:POKE53244,190:POKE53277,30
2407 POKESX(2),43 :POKESY(2),108
2408 POKESX(3),43 :POKESY(3),150
2410 POKESX(4),85 :POKESY(4),150
2415 POKESX(5),91 :POKESY(5),108
2416 FORY=PEEK(SY(1)) TO 116 STEP2
2417 POKESY(1),Y:FORD=1TO8:NEXT
2420 NEXT
2430 FORY=1TO21:POKE53240,254
2431 POKESY(1),PEEK(SY(1))+1
2435 POKESX(1),PEEK(SX(1))-2
2440 FORD=1TO2:NEXT
2445 NEXT:POKESY(1),133:GOSUB125:POKE53240,250
2450 FORX=190 TO 184 STEP-1
2455 POKE53244,X
2456 NEXT
2460 POKE53245,182:POKE53246,183
2461 POKESX(6),0:POKESX(7),90:POKE53264,64:POKESY(6),185:POKESY(7),185
2462 FORX=1TO189STEP2
2465 POKESX(6),PEEK(SX(6))+2
2470 POKESX(7),PEEK(SX(7))-2
2471 IFPEEK(SX(7))=0 THEN POKE53264,.:POKESX(7),255
2472 NEXTX
2500 REM  THATS,THATS,THATS ALL FOLKS!
2600 PRINT"[196]O YOU WISH TO VIEW [193]LFREDO AGAIN?"
2605 PRINT"       [208]LEASE SELECT [217])ES [207]R [206])O "
2610 GETA$:IFA$=""THEN2610
2611 IFA$="Y"ORA$="[217]"THEN 41
2612 IFA$="N"ORA$="[206]"THEN 2700
2650 GOTO 2610
2700 FORX=1TO8:POKESX(X),.:POKESY(X),.:NEXT
2705 POKE53277,.:POKE53271,.:POKE648,4
2706 POKE53280,14:POKE53281,14:POKE53272,21:POKE56576,3
2708 PRINT"[147][208]LEASE WAIT WHILE RETURNING TO [204]OADSTAR."
2710 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
2711 IFER<>63 THEN PRINT"[147]":END
2712 LOAD"HELLO CONNECT",8,1